/bn {
		kageFlg {
			bn2 /kageFlg false def
		} {
			*bn
		} ifelse
	} bdf
	/kageFlg false def
	/pm save def
} if
% end of patch code

	kageLen -1 3 {
		exch dup 3 -1 roll get exch 
	} for
	pop
	/kageLen kageLen 2 sub def
	/kageAry kageLen array def
	/kageLen kageLen 1 sub def
	0 1 kageLen {
		exch kageAry 3 1 roll put
	} for
	/bn2 kageAry cvx bdf
	/*bn /bn load def

udf not {
	/pm save def
	pm restore
	/fnt2 /fnt load def
	/fnt {
		/pm save def
		fnt2
		/kageFlg true def
	} bdf
	/bn load
	dup /kageLen exch length 1 sub def

% Patch code for LaserWriter J1-6.0.2
% This code overrides fnt & bn
% Written by Satoshi Nishi
% Copyright (c) 1991 SystemSoft Corp.
% All Rights Reserved.